home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / move.plt < prev    next >
Text File  |  1993-11-30  |  4KB  |  154 lines
  1. /**********   ＭＯＶＥ.ＰＬＴ  巡回の設定を並び換える  v1.04a用  **********/
  2. var f2[700];
  3. var b2[1400];
  4. var dispdata[500];
  5. var type[5];
  6.  
  7. %YesNo2{[MSG,CMD]
  8.     loop({
  9.         select(MSG,9999,{im({Yes});
  10.         },{　Ｏ Ｋ　},{CMD; im({No});
  11.         },{　Ｎ Ｇ　},{im({No});
  12.         });
  13.     });
  14. };
  15.  
  16. %NewData{[DATA]
  17.     case(f2={},
  18.     {Yes},{
  19.         case(type={Forum} || type={LIB} || type={RTN},
  20.         {Yes},{    dispdata:=@head(DATA,{(});
  21.             f2:=DATA;
  22.         },{No},{dispdata:=@tail(DATA,{/});
  23.             f2:=DATA;
  24.         });
  25.     },{No},{
  26.         case(type={Forum} || type={LIB} || type={RTN},
  27.         {Yes},{    dispdata:=dispdata|{,}|@head(DATA,{(});
  28.             f2:=f2|{/}|DATA;
  29.         },{No},{dispdata:=dispdata|{,}|@tail(DATA,{/});
  30.             f2:=f2|{,}|DATA;
  31.         });
  32.     });
  33.     display(@getchar(type|{     },1,5)|{=>}|dispdata|{\n});
  34. };
  35.  
  36. %SetData2{
  37.     b2:=b2|{,};
  38.     b2:=b2    |@xc({7b})|{ }|name|{ }|@xc({7d})|{,}
  39.         |@xc({7b})|{ NewData(}
  40.         |@xc({7b})|data|@xc({7d})
  41.         |{); im({Yes}); }|@xc({7d});
  42.     im(f2<>{});
  43. };
  44.  
  45. %SetData{
  46.     loop({
  47.         case(type={Forum} || type={LIB} || type={RTN},
  48.         {Yes},{
  49.             %data    @head(f2,{/});
  50.             %name    @head(data,{(});
  51.             f2:=@body(f2,{/});
  52.             SetData2;
  53.         },{No},{
  54.             %data    @head(f2,{,});
  55.             %name    @tail(data,{/});
  56.             f2:=@body(f2,{,});
  57.             SetData2;
  58.         });
  59.     });
  60. };
  61.  
  62. %BLib{
  63.     f2:=lib;
  64.     b2:={loop(}|@xc({7b})|
  65.         {select({ 巡回するライブラリを選択してください},999,{
  66.         YesNo2({ ライブラリは未設定でよろしいですか？},
  67.             {lib:={}}) }};
  68.     SetData;
  69.     b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{lib:=f2}); im({No}) });
  70.             footnote({}); }|@xc({7d})|{);};
  71.     loop({    case(lib={},{Yes},{im({})},{No},{im(b2)});    });
  72. };
  73. %BPatio{
  74.     f2:=patio;
  75.     b2:={loop(}|@xc({7b})|
  76.         {select({ 取得するパティオを選択してください},999,{
  77.         YesNo2({ パティオを受信しなくてよろしいですか？},
  78.             {patio:={}}) }};
  79.     SetData;
  80.     b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{patio:=f2}); im({No}) });
  81.             footnote({}); }|@xc({7d})|{);};
  82.     loop({    case(patio={},{Yes},{im({})},{No},{im(b2)});    });
  83. };
  84. %BHP{
  85.     f2:=hp;
  86.     b2:={loop(}|@xc({7b})|
  87.         {select({ 取得するＨＰを選択してください},999,{
  88.         YesNo2({ ＨＰを受信しなくてよろしいですか？},{hp:={}}) }};
  89.     SetData;
  90.     b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{hp:=f2}); im({No}) });
  91.             footnote({}); }|@xc({7d})|{);};
  92.     loop({    case(hp={},{Yes},{im({})},{No},{im(b2)});    });
  93. };
  94. %BForum{
  95.     f2:=forum;
  96.     b2:={loop(}|@xc({7b})|
  97.         {select({ 取得するフォーラムを選択してください},999,{
  98.         YesNo2({ フォーラムを受信しなくてよろしいですか？},
  99.             {forum:={}}) }};
  100.     SetData;
  101.     b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{forum:=f2}); im({No}) });
  102.             footnote({}); }|@xc({7d})|{);};
  103.     loop({    case(forum={},{Yes},{im({})},{No},{im(b2)});    });
  104. };
  105. %BRTN{
  106.     f2:=rtn;
  107.     b2:={loop(}|@xc({7b})|
  108.         {select({ ＲＴＮ巡回するフォーラムを選択してください},999,{
  109.         YesNo2({ ＲＴＮ巡回しなくてよろしいですか？},{rtn:={}}) }};
  110.     SetData;
  111.     b2:=b2|{,{ 設定終了 },{case(f2<>{},{Yes},{rtn:=f2}); im({No}) });
  112.             footnote({}); }|@xc({7d})|{);};
  113.     loop({    case(rtn={},{Yes},{im({})},{No},{im(b2)});    });
  114. };
  115.  
  116. type:={LIB};
  117. %SelLib        @BLib;
  118. type:={Patio};
  119. %SelPatio    @BPatio;
  120. type:={HP};
  121. %SelHP        @BHP;
  122. type:={Forum};
  123. %SelForum    @BForum;
  124. type:={RTN};
  125. %SelRTN        @BRTN;
  126. loop({
  127.     f2:={};
  128.     b2:={};
  129.     dispdata:={};
  130.     select({ どのデータを変更しますか？},9999,{im({Yes});
  131.         },{     ライブラリの巡回を変更     },{type:={LIB};
  132.             SelLib;
  133.             case(lib,{},{display({LIB  =>巡回しない\n})});
  134.                             im({Yes});
  135.         },{      パティオの巡回を変更      },{type:={Patio};
  136.             SelPatio;
  137.             case(patio,{},{display({Patio=>巡回しない\n})});
  138.                             im({Yes});
  139.         },{        ＨＰの巡回を変更        },{type:={HP};
  140.             SelHP;
  141.             case(hp,{},{display({HP   =>巡回しない\n})});
  142.                             im({Yes});
  143.         },{     フォーラムの巡回を変更     },{type:={Forum};
  144.             SelForum;
  145.             case(forum,{},{display({Forum=>巡回しない\n})});
  146.                             im({Yes});
  147.         },{     巡回ＲＴＮの順路を変更     },{type:={RTN};
  148.             SelRTN;
  149.             case(rtn,{},{display({RTN  =>巡回しない\n})});
  150.                             im({Yes});
  151.         },{         メニューに戻る         },{im({No});
  152.     });
  153. });
  154.